home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / PG / CL_STYLE.ZIP / DEMO_LIB.CLA < prev    next >
Encoding:
Text File  |  1994-02-12  |  3.0 KB  |  76 lines
  1.                  PROGRAM
  2.  
  3.                  INCLUDE('KeyCodes.EQU')
  4.                  INCLUDE('Clarion.EQU')
  5.                  INCLUDE('Errors.EQU')
  6.  
  7.                  MAP
  8.                    Include('DOSLIB.INC')
  9.                  END
  10. !
  11. !                ------------------------------------------------------------
  12. !                Data Declarion for Testing
  13. !                ------------------------------------------------------------
  14. !
  15. Backdrop         SCREEN,CUA,COLOR(1)
  16.                    !dimensions=25,80,25,80
  17.                    !style=D:\CLARION\DEVELOP\DOSLIB\CLARION.STY
  18.                    ROW(1,1)    PAINT(1,26),COLOR(2)
  19.                    ROW(1,55)   PAINT(1,26),COLOR(2)
  20.                    ROW(1,27)   STRING('DOS Library Testing Facility'),COLOR(2)
  21.                                REPEAT(24)
  22.                    ROW(2,1)      STRING('▒{80}')
  23.                                .
  24.                  .
  25. PullDown_Menu    PULLDOWN,COLOR(44,45,49,46,52),HALF(120),LOCAL,SHADOW,AT(2)
  26.           !style=D:\CLARION\DEVELOP\DOSLIB\Clarion.Sty
  27.           MENU('Dos Library'),COLOR(47,48,49,50,51)
  28.             ITEM('Open'),USE(?Open_a_File)
  29.             ITEM('Change &Directory'),USE(?Change_Directory)
  30.             ITEM('Get a Filename'),USE(?Get_a_Filename)
  31.             ITEM('-')
  32.             ITEM('Edit Color Scheme'),USE(?Edit_Color_Scheme)
  33.             ITEM('-')
  34.             ITEM('Select a Printer'),USE(?Select_a_Printer)
  35.             ITEM('P&rinter Defaults'),USE(?Printer_Defaults)
  36.             ITEM('Edit &Printers'),USE(?Edit_Printers)
  37.             ITEM('-')
  38.             ITEM('C&alendar'),USE(?Calendar)
  39.             ITEM('-')
  40.             ITEM('E&xit'),USE(?Exit),KEY(CtrlX)
  41.           .
  42.         .
  43. PrinterConts       Group
  44. Destination          String('SCREEN')
  45. Filespec             String(64)
  46. PrinterName          String(30)
  47. Control_BF           String(30)
  48. Control_AFT          String(30)
  49. Lines_Page           Short(60)
  50.                    .
  51.  
  52.                  Code
  53.                  LoadSymbols()
  54.                  LoadBorder()
  55.                  SetMouse(1,1)
  56.                  GetStyles('C:\Clarion3\Clarion.Sty')
  57.  
  58.                  Open(BackDrop)
  59.                  Open(PullDown_Menu)
  60.                  Loop
  61.                    Accept
  62.                    Case Field()
  63.                      Of ?Open_a_File        ; Dummy" = Get_FileName('*.CLA','')
  64.                      Of ?Change_Directory   ; Change_Directory
  65.                      Of ?Get_a_Filename     ; Dummp" = GetFileDetails('CLARION.STY','Select a Style File','*.STY')
  66.                      Of ?Edit_Color_Scheme  ; ViewStyles('')
  67.                      Of ?Select_a_Printer   ; x" = Select_Printer('')
  68.                      Of ?Printer_Defaults   ; Printer_Setup(PrinterConts,'DEMO_LIB.CTL')
  69.                      Of ?Edit_Printers      ; ViewPrinters('')
  70.                      Of ?Calendar           ; x# = Calendar(Today())
  71.                      Of ?Exit               ; Return
  72.                  . .
  73.                  Return
  74.  
  75.  
  76.